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SECTION I 
INTRODUCTION 



1-1. PROGRAMI SUMMARY 

1-2. The ND4410 Low/High Speed Paper Tape I/O Overlay Program (41-1062) is 
written for use with the ND4410 Single Parameter Data Acquisition and Display System. 
The program is an overlay for the ND4410 Bosic Physics Analyzer Program (41-1060), 
containing pushbutton control routines for totalize and print. Also included are keyboard 
entry routines for store and write/read data to/from binary formatted paper tape via 
either a low speed or high speed punch/reader. 

1-3. PROGRAM AREA 

1-4. The program occupies memory core locations J0,3j0J01g through J0, 3777g, 

1-5. STARTING ADDRESS 

1-6. The starting address of the program is 0,j62j6j6Q, 

1-7. EQUIPMENT CONFIGURATION 
1-8. MINIMUM EQUIPMENT 

1-9. The minimum equipment required for proper operation of this system is: 

a. An ADC. 

b. The ND4410 Function Control Module. 

c. A display oscilloscope. 

d. The 4K, ND812 Computer. 
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e. A 33ASR Teletype. 

1-10. The program will operate with either a 4K, 8K, 12K or 16K ND812 memory 
configuration, providing maximum data storage configuration of IK, 3K, 5K or 7K 
(24 bits, respectively). 

1-11. OPTIONAL EQUIPMENT 

1-12. The optional equipment allowed to be used with this program is: 

a. A high speed paper tape punch. 

b. A high speed paper tape reader. 
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SECTION II 
PROGRAM DESCRIPTION 



2-1. INTRODUCTION 

2-2. This section is intended to be read in conjunction with the flow charts outlined 
in Section VII . 

2-3. The ND4410 Low/High Speed Paper Tape I/O Overlay Program (41-1062) 
consists of hardware and software entry subroutines to the ND4410 Basic Physics Analyzer 
Program (41-1060). The hardware entry subroutines control the TOTAL and PRINT 
pushbuttons of the ND4410 Function Control Module. The software entry subroutines 
provide control for store and write/read to/from binary formatted paper tape via either 
the low speed or high speed punch/reader, 

2-4. HARDWARE ENTRY SUBROUTINES 
2-5. TOTAL PUSHBUTTON SUBROUTINE 

2-6. The TOTAL pushbutton subroutine (Figure 7-1) prints the current group number and 
the channel locations of the left and right markers; sums the counts stored in the channels 
between the markers; prints the total; calculates the background and subtracts it from 
the total; and then prints the net total (total minus background). The formula for calculation 
of the background is as follows: 

B^. = 1/2 (Ci +C2)N 



where Bq = Background 

C] = Counts in left marker channel 

C2 = Counts in right marker channel 

N = Number of channels between the markers 
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2-7. PRINT PUSHBUTTON SUBROUTINE 



2-8. The PRINT pushbutton subroutine (Figure 7-2) prints the current group number, the 
channel locations of the left and right marker, and the content of each channel between 
the markers with channel identification for the first and every eighth channel thereafter, 

2-9. SOFTWARE ENTRY SUBROUTINES 
2-10. STORE SUBROUTINE 

2-11. The store subroutine (Figure 7-3) permits specifying the marker defined channels 
of any group for storing the result of an arithmetic expression of up to three terms connected 
by any one of the arithmetic operations: + (add), - (subtract), * (multiply) or / (divide). 
The three terms can be any three groups, any three literal numbers, or any combination 
thereof. 

2-12. The store subroutine is executed as follows: 

a. Branch to select limits subroutine to select the group for storage of the result 
(and up to three terms), and the arithmetic operators connecting them. 

b. Branch to the Get value subroutine to select the first channel specified. 

c. Combine the terms of the arithmetic expression according to the convention 
of matrix algebra. 

d. Branch to the Put value subroutine to store the result in the first channel 
specified. 

e. Repeat steps b, c and d for each specified channel. 

f. Return, 

2-13. SELECT LIMITS SUBROUTINE. The Select Limits subroutine (Figure 7-4) selects 
the group for storage of the result of the arithmetic expression, the marker channels of 
the group(s) on which the arithmetic operations are to be performed, and the terms of the 
arithmetic expression and the operators connecting them. A term (up to three may be 
specified) can be any valid group or literal number from 1 to 8,388,607. The arithmetic 
operators can be either + (add), - (subtract), * (multiply) or / (divide). 

2-14. GET VALUE SUBROUTINE. The Get Value subroutine (Figure 7-5) selects the 
group and channel numbers, combines them to form a memory address, and then puts the 
contents of the selected address into the Integer Accumulator and J and K Registers. 
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2-15. PUT VALUE SUBROUTINE. The Put Value subroutine (Figure 7-6) selects the 
group and channel numbers, combines them to form a memory address, and then stores 
the contents of the Integer Accumulator in the selected address. 

2-16. WRITE SUBROUTINE 

2-17. The Write subroutine (Figure 7-7) prints the current group number and the channel 
locations of the left and right markers; punches the number of channels in the marker area; 
selects the group and first channel number, combines them to form a memory address, and 
puts the contents of the selected address into the Integer Accumulator and J and K 
Registers; and then punches the contents in binary format ai paper tape. The subroutine 
then checks for the last channel. If it is not the last channel, the next channel is selected 
and its contents are punched. After the last channel is punched, the subroutine punches 
the check sum and returns, 

2-18. READ SUBROUTINE 

2-19. The Read subroutine (Figure 7-8) prints the current group number and the channels 
location of the left and right markers, reads the number of channels to be read in from 
the paper tape and then checks if the number is greater than the number of channels in 
the marker area. If the number is greater, the subroutine branches to the Error subroutine 
(41-1060) to print an error message. If the number is less than or equal to the number of 
channels in the marker area, the subroutine reads the first data word from the paper tape, 
selects the group and first channel number, combines them to form a memory address, 
and then adds the data read in to the contents of the address. The subroutine then checks 
for the last channel. If it is not the last channel, the next data word is read from paper 
tape and it is added to the contents of the next channel. After the last data word is 
read, the subroutine checks for a zero check sum. If the check sum is not equal to zero, 
the subroutine branches to the Error subroutine (41-1060) to print an error message. If 
the check sum is equal to zero, the subroutine returns. 
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SECTION III 
OPERATIONAL PROCEDURE 



3-1. INITIALIZATION PROCEDURE 

3-2. The following is a step-by-step procedure for loading and initializing the 
ND4410 Low/High Speed Paper Tape I/O Overlay Program (41-1062): 

NOTE 

Prior to performing the following procedure, load and initialize 
the ND4410 Basic Physics Analyzer Program (41-1060) as described 
in the ND4410 Single Parameter Physics Analyzer Software 
Instruction Manual (IM41-1060). 

a. Depress the STOP key at the ND812 Computer. 

b. Place the START/FREE/STOP switch at the teletype in the FREE position. 

c. Load the ND4410 Low/High Speed Paper Tape I/O Overlay Program 
(41-1062) Tape into the teletype reader with the leader (8-level punches) over the read 
head. 

d. Set the START/FREE/STOP switch to START. 

e. Simultaneously depress the LOAD AR and NEXT WORD key at the ND812 
Computer. The teletype read will step through the leader and read the program into 
the ND812 memory,, Upon completion of read-in, the reader will stop automatically. 
When the reader stops, check the J Register for zero. If non-zero, reload. 

NOTE 

Refer to the ND812 Binary Paper Tape and Cassette Loader Program 
(41-0005) for loading procedures using a high speed paper tape 
reader or magnetic tape cassette. 

f. Set the SWITCH REGISTER switches at starting address {fi,fi2fifi^ and depress 
the LOAD AR key. 
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g. Depress the START key. The program will cause the teletype to perform 
a carriage return and line feed and type an asterisk (*). 

h. When the teletype types an asterisk (*), call up the desired routine from 
the monitor mode by depressing the appropriate pushbutton at the ND4410 Function 
Control Module or by typing the appropriate single letter mnemonic at the teletype 
keyboard. 



3-2 



SECTION IV 
OPERATOR OR USER CONTROL 



4-1. GENERAL INFORMATION 

4-2, The pushbutton selected (hardware entry) commands of the ND4410 Low/High 
Speed Paper Tape I/O Overlay Program (41-1062) are executed by depressing the 
appropriate pushbutton at the ND4410 Function Control Module, The keyboard entry 
commands are executed by entering the appropriate single letter mnemonic at the teletype 
after an asterisk (*) has been typed by the program » In the following description, the 
portion of the command to be typed at the teletype keyboard is underlined. All other 
information is provided by the program, 

4-3. HARDWARE ENTRY COMMANDS 
4-4. TOTAL PUSHBUTTON 

4-5, Depressing the TOTAL pushbutton prints the current group number and the channel 
locations of the left and right markers; totalizes the counts stored in the channels between 
the left and right markers, subtracts the background from the total, and then prints the 
total and the net total (total minus background). The following is an example of the 
information printed when the TOTAL pushbutton is depressed, 

*GROUP 2CHNL 210-242 

*TOTAL= 10840 
NET TOTAL = 4966 

* 

4-6, PRINT PUSHBUTTON 

4-7, Depressing the PRINT pushbutton prints the current group number, the channel 
locations of the left and right markers, and the content of the channels between the 
markers with channel identification every eighth channel. The following is an example 
of the information printed when the PRINT pushbutton is depressed. The first number in 
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each row represents the channel number every eighth channel, and the remaining eight 
numbers represent counts stored in each of eight channels. For example, channel 210 has 
171 counts, channel 211 has 188 counts, etc. 

*GROUP 2CHNL 210-242 



210 


171 


188 


215 


229 


239 


242 


246 


299 


218 


309 


303 


379 


359 


427 


407 


473 


424 


226 


477 


456 


463 


469 


483 


404 


398 


379 


234 


379 


380 


287 


267 


247 


227 


220 


218 



242 186 

* 

4-8, The print routine can be terminated at any time by depressing the RETURN pushbutton 

at the ND4410 Function Control Module. 

4-9. SOFTWARE ENTRY COMMANDS 
4-10. STORE COMAAAND 

4-1 1 . The following operation adds the content of the marker defined channels 
(32 to 64) in groups 1 and 2 together and stores the result in the marker defined channels 
(32 to 64) of group 2. All data in the memory except the marker defined channels 
(32 to 64) of group 2 remains unchanged. 

*STORE IN GROUP: 2 (S PACE) CHNL 32 - 64 
RESULT OF: GROUP: J_+: GROUP 2 (RETURN) 

* 

4-12, The following operation adds 625 (125 multiplied by 5) to the content of each 
of the marker defined channels (32 to 64) in group 1 and stores the result in the marker 
defined channels (32 to 64) of group 2, All data in memory except the marker defined 
channels (32 to 64) of group 2 remains unchanged, 

*STORE IN GROUP: 2 ( SPACE) CHNL 32 - 64 
RESULT OF: J25*: 5+: GROUP 1 ( RETURN) 

* 

4-13, The Store Command permits specifying the marker defined channels of any group 
for storing the result of an arithmetic expression of up to 3 terms connected by any one 
of the arithmetic operators: + (add), - (subtract), * (multiply), or / (divide). The 
three terms can be any 3 groups, any 3 literal numbers or any combination thereof. 
Depressing the RETURN key after any of the terms makes that term the last one and 
causes the routine to evaluate the arithmetic expression and store the result in the 
group specified. 
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4-14. The Store Command is specified by typing S after an asterisk (*) is typed. After 
S is typed, the routine prints STORE IN GROUP: and waits for entry of the resultant 
group number. The resultant group can be any valid group number. Entry of the resultant 
group must be terminated by depressing the SPACE bar. When the SPACE bar is depressed, 
the routine prints CHNL, the left marker channel, dash (-) and the right marker channel; 
performs a carriage return and line feed, prints RESULT OF: and waits for entry of the 
first term. 

4-15. A group is specified as a term by typing G, whereupon the routine prints 
GROUP: and waits for input of a group number. Depressing the ALT MODE key causes 
the routine to echo the last group number entered and wait for entry of an arithmetic 
operator (+, -, * or/). Otherwise any valid group number may be entered. Entry of 
a group or literal number must be terminated by typing one of the four arithmetic 
operators (+, -, * or/) or by depressing the RETURN key. If one of the four arithmetic 
operators is entered, the routine will echo a colon (:) and wait for entry of the next 
term. If the RETURN key is depressed, the routine will perform the specified arithmetic 
operations and store the result in the specified group. Upon completion of the store 
operation, the routine performs a carriage return and line feed and types an asterisk (*), 

4-16. The specified arithmetic operations are evaluated from left to right according 
to the conventions of Matrix Algebra, i.e., the content of each defined channel in 
a group is combined with the corresponding channel of the next group by the arithmetic 
operator connecting the groups, and the result is stored in the corresponding channel of 
the resultant group. Literal numbers are treated as scalers in that they are combined 
with the content of each defined channel in a group according to the arithmetic 
operators connecting them with the group. The store routine can be terminated at 
any time by depressing the RETURN pushbutton at the ND4410 Function Control Module. 

4-17. WRITE COMMAND 

4-18, The following operation outputs the portion of the spectrum contained in the 
marker defined channels (64 to 128) of group 1 In binary format at either the high speed 
or low speed (teletype) paper tape punch. 

*WRITE GROUP 1 CHNL 64 - 128 

* 

4-19. The Write Command prints the current group number and the channel locations 
of the left and right markers at the teletype and then punches the following information 
at either the low speed (teletype) or high speed paper tape punch. 

a. Leader/ trailer consisting of sprocket punches only. 

be Three character (8 bits each) indicating the number of data channels in 
the marker defined area,, 

c. Data, 24 bits in binary format (3 characters, 8 bits each). 
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d. A check sum consisting of one 8 bit character, 

e. Leader/trailero 

4-20. The low speed (teletype) punch is selected as the readout device for the Write 
Command by setting the SWITCH REGISTER Switches at the ND812 Computer to non-zero, 
i.e., by setting any one of the SWITCH REGISTER Switches to a "1" (up). The high 
speed punch is selected as the readout device for the Write Command by setting the 
SWITCH REGISTER switches at the ND812 Computer to zero, i,e,, by setting all the 
SWITCH REGISTER switches to "fi" (down), 

NOTE 

Prior to performing the Write Command load the selected punch with 
paper tape, 

4-21, The Write Command is specified by typing W after an asterisk (*) is typed. After 
W is typed, the routine causes the teletype to print WRITE GROUP, the current group number, 
CHNL, the left marker channel location, dash (-) and the right marker channel location and 
perform a carriage return and line feed, and then initiates the write operation. Upon 
completion of the write operation, the routine causes the teletype to type an asterisk (*), 

NOTE 

After the teletype performs the carriage return and line feed, turn 
on the selected punch, 

4-22, READ COMMAND 

4-23, The following operation reads a spectrum from binary formatted paper tape at 
either the low speed (teletype) or high speed reader and adds it to the portion of the 
spectrum contained in the marker defined channels (64 to 128) of group 1, 

*READ GROUP: ]_CHNL 64 - 128 

* 

4-24, The binary format of the paper tape must be the same as described for the 
Write Command and the number of channels to be read in must be less than or equal to 
the current number of channels between the markers. If the number of channels read in 
is less than the current number of channels in the between markers, only those channels 
which correspond to the channels read in will be altered. Attempting to read in more 
channels than there are in the current marker area will result in an error indication. 
Refer to Table 5-1 » 

4-25, The Read Command prints the current group number and the channel locations of 
the left and right markers at the teletype, and then reads the data from the binary formatted 
paper tape at either the low speed (teletype) or high speed paper tape reader and adds it 
to the contents of the channels between the markers of the current group. 
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4-26. The low speed (teletype) paper tape reader is selected as the read-in device for 
the Read Command by setting the SWITCH REGISTER Switches at the ND812 Computer to 
non-zero, i.e., by setting any one the SWITCH REGISTER switches to a "1" (up). The 
high speed paper tape reader is selected as the read in device for the Read Command by 
setting the SWITCH REGISTER switches to zero, i.e., by setting all the SWITCH REGISTER 
switches to "0" (down), 

NOTE 

Prior to performing the Read Command, place the paper tape in the 
selected reader with the leader over the read head. 

4-27. The Read Command is specified by typing R after an asterisk (*) is typed. After 
R is typed, the routine causes the teletype to print READ GROUP, the current group 
number, CHNL, the left marker channel location, dash (-), and the right marker channel 
location and perform a carriage return and line feed, and then initiates the read operation. 
Upon completion of the read operation, the routine causes the teletype to type an asterisk 
(*). Correct read in is indicated by the check sum being zero. A non-zero check sum 
will result in an error indication. Refer to Table 5-1. 

NOTE 

After the teletype performs the carriage return and line feed, turn 
on the selected reader. 
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SECTION V 
ERROR DIAGNOSTICS 



5-1. ERROR INDICATION 

5-2. Execution of an illegal operation will result in an error message being typed 
at the teletype. Table 5-1 lists the error messages and their causes. 



Table 5-1. Error Indications 



ERROR MESSAGE 


CAUSE 


ERROR: 99XXXX 
ERROR: 62XXXX 
ERROR: 72XXXXX 

ERROR: 70XXXXX 

ERROR: 77XXXXX 

ERROR: 82XXXXX 


Depressing an unassigned pushbutton. 
Depressing an unassigned teletype key. 
Entering a group number greater than the number 
of groups selected. 

Entering a character other than an arithmetic 
operator (+, *, /) . 

Reading in a group of channels larger than the 
current number of channels in the marker area. 
Check sum upon completion of read-in. 



NOTE 

The least significant digits indicated by X's in Table 5-1 for the 
ERROR mesjrage may change depending upon which illegal operation 
was performed. However, the two most significant digits will be 
the same for the same type of error. 
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SECTION VI 
COMMAND SUMMARY 



6-1. HARDWARE ENTRY COMMANDS 

6-2, The following summarizes the hardware entry commands described in Section IV. 

1 . TOTAL. PUSHBUTTON - Totalizes the counts stored in the channels between 
the markers and prints the current group, the marker channels, the total 
and the net total (total minus background) at the teletype. 

2. PRINT PUSHBUTTON - Prints the current group, the marker channels and 
the content of each channel beh//een the markers at the teletype with 
channel identification every eighth channel. 



6-3. SOFTWARE ENTRY COMMANDS 

6-4, The following summarizes the software entry commands described in Section IV. 

1 , STORE COMMAND - Permits specifying the marker defined channels of 
any group for storing the result of an arithmetic expression of up to three 
terms. The three terms can be any three group, any three literal numbers, or 
any combination thereof. 

2, WRITE COMMAND - Prints the current group and the marker channels at 
the teletype, and then punches the content of each channel between the 
markers of the current group in binary format at either the low speed (teletype) 
or high speed paper tape punch, 

3, READ COMMAND - Prints the current group and the marker channels at the 
teletype, and then reads the data from the binary format paper tape at either 
the lov^ speed (teletype) or high speed paper tape reader and adds it to the 
data contained in the channels between the markers of the current group. 
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SECTION VII 
FLOW CHARTS 



7-1, Figures 7-1 t-hrough 7-8 depict the flow of the individual subroutines. 
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Figure 7-U TOTAL Pushbutton Subroutine (Sheet 1 of 2) 
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Figure 7-1 . TOTAL Pushbutton Subroutine (Sheet 2 of 2) 
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Figure 7-2, PRINT Pushbutton Subroutine (Sheet 1 of 2) 
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Figure 7-2. PRINT Pushbutton Subroutine (Sheet 2 of 2) 
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Figure 7-3, Store Subroutine 
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Select Limits Subroutine (Sheet 1 of 3) 
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Figure 7-4, Select Limits Subroutine (Sheet 2 of 3) 
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Figure 7-4o Select Limits Subroutine (Sheet 3 of 3) 



7-9 




Select 
group, 
channel 



Combine to 
form memory 
address 



Put contents 
of address 
into Integer 
Accum., J,K 



Return 



Figure 7-5. Get Value Subroutine 
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Figure 7-6, Put Value Subroutine 
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Figure 7-7, Write Subroutine (Sheet 1 of 2) 
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Figure 7-7. Write Subroutine (Sheet 2 of 2) 
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Figure 7-8, Reod Subroutine (Sheet 1 of 2) 



7-13 



E7A 




Read data 
from paper 
tape 



Select group, 
channel 



Combine to 
form memory 
address 



Add data to 
contents of 
Integer 
Accum. 



Put contents 
of Integer 
Accum. in 




Figure 7-8. Read Subroutine (Sheet 2 of 2) 
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SECTION VIII 
PROGRAM LISTING 



8-1 . A listing of the ND4410 Low/High Speed I/O Overlay Program (41-1062) 
as produced by Pass 3 of the ND812 BASC-12 General Assembler Program (41-0001) 
is provided on the Following pages. 
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/ND41-I062-00 2775-3777 8. A. ■ N.A, 

/EXTENDCD PUSHBUTTON H/L SPEED READ/PUNCH I/O FOR 4410 PHYSICS 

/VERSION A 
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6365 




0070 


5464 




5464 




0071 


0057 




0057 




0072 


4675 




4675 





8-2 



0075 
0153 
0166 
0170 
0175 



0321 
0382 



0410 



0411 



2074 



2306 
2307 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2320 



2323 
2324 
2325 



0362 
0362 
0212 
0362 
0362 



1400 
1400 



2025 
0336 
2062 



2256 0000 



0122 
0127 
0000 
0123 
0000 



0000 
0000 
0000 
0000 
0000 



3701 
3727 

212PI 



♦MOREF 



THREAD 



★INITO 



♦INICOM 



♦HIPUN 



♦MOREH 



♦UOFIO 



♦ITMOUT 



♦OLYEXT 



♦LDFt4 



♦TAB1*2 



RETRN 



RETRN 



NOOLAY 



RETRN 



RETRN 



IDLE 
IDLE 



AQOFF 



NOCTB 



AOEXIT+1 



0000 



/MORE UOW INTERRUPT FLAG CHECK 



/HIGH SPEED REA INITIAL RETURN 



/PROVISION FOR OVERLAY INITIALIZATION 



/NORMAL RETURN REGISTER RESTORE 



/HIGH SPEED PUNCH INITIAL RETURN 



/MORE HIGH LEVEL INTERRUPTS 



/LISTMODE OVERFLOW ACQUIRE OFF 



/ADC TIME OUT 



/PROVISION FOR OVERLAY SERVICE 



/PROVISION FOR OVERLAY STATUS 



0122 
0127 
0000 
0123 
0000 
0000 

0000 

0000 
0000 
0000 
0000 



/READ 

/WRITE 

/SPARE 

/STORE 

/SPARE 

/SPARE 

/SPARE 

/SPARE 

/SPARE 

/SPARE 

/SPARE 



*CHARX*3 



READ 
WRITE 

UNUSED 



8-3 



2326 
2327 
233?l 
2331 
2332 
2333 
2334 
2335 



3030 
2120 
2120 
2120 
2120 
2120 
2120 
2120 



STORE 

IJNUSFD 
UNUSED 
UNUSED 
UNUSED 
UNUSED 
UNUSED 
UNUSED 



/CAN NOT BE CHANGED 



♦TABLE*? 
2345 2775 TOT0 

♦TABLE+15 

2353 3037 PNT0 

2354 2120 UNUSED 

2355 2120 UNUSED 

/El2d5 



/TOTALIZE SPARE 1 

/PRINT SPARE 2 

/WAS ID0 



8-4 



*TTYP*1 



2775 


0000 


TOT0, 





/TOTALIZE BETWEEN MARKERS 


2776 


2203 




AOOt 3 




2777 


6440 




JPS PNT0 




3000 


0640 


X101, 


TWJPS 




3001 


2403 




UNPACK 




3002 


0050 




TOT 


/PRINTS TOTAL ■ 


3003 


7045 




XCT X103 


/JPS IM 


3004 


3400 




lOUT 


/PUT TOTAL IN TTY BUFFER 


3005 


>5474 




ISTR CCHAN 


/SAVE TOTAL FOR BKG SUBTR 


3006 


5271 




ILOD* CEINST 


/LOAD CeM2) VALUE 


3007 


4671 




IADD«» ClI 


/ DO BKG CALCULATION 


3010 


>6674 




IDIV# TWOl 




3011 


7034 




IMUL NCHAN 


/BKG« l/2(Cl ♦ C25N 


3012 


4467 




lADO CCHAN 


/SUBT FROM TOTAL 


3013 


0000 




lEXT 




3014 


7114 




XCT X101 


/JPS UNPACK 


3019 


0003 




TTY 




3010 


7116 




XCT X 1 1 


/JPS UNPACK 


3017 


0045 




NET 


/PRINT NET TOTAL * 


3020 


0340 




TWI8Z 


/FORCE INEC TO ECHO 


3021 


2106 




ECHOF 




3022 


0640 




TWJPS 




5023 


2140 




INEC 




3024 


2505 




LORD 


/PRINT NET VALUE 


3025 


7125 




XCT X101 


/JPS UNPACK 


3026 


0035 




PCRLF 


/PRINTS CR*LF 


3027 


6332 




JMP# TOT0 




3030 


0000 


STORE, 





/DATA MANIPULATION 


3031 


7131 


X107, 


XCT X101 


/JPS UNPACK 


3032 


0054 




8TR 


/PRINT "CS)TORE IN G" 


3033 


5460 




8TJ SFLAG 


/SET DATA MANIPULATION 


3034 


2204 




ADDL 4 




3035 


7004 




XCT X119 


/JPS ALLF 


3036 


6306 




JMP* STORE 




3037 


0000 


PNT0, 





/PRINT BETWEEN MARKERS 


3040 


3453 




ISZ SFLAG 




3041 


6462 


X119, 


JPS ALLF 




3042 


7111 




XCT X107 


/JPS UNPACK 


3043 


0035 




PCRLF 


/PRINTS CR-LF 


3044 


6305 




JMP^ PNT0 




3045 


0000 


NCHAN, 





/NO. CHNLS BETWEEN L»R MARKERS 


3046 


0000 









3047 


0000 


GCOMP, 





/COMPUTE PUT V OR GET V INST 


3050 


0640 


X103, 


TWJPS 





8-5 



3051 


2441 




IM 




3052 


5242 




ILOD* MGCRl 


/COMPUTE N CHANNELS 


3053 


4036 




I8UB BCHAN 




3054 


4627 




IADD# ONEI 




3055 


6000 




INEG 




3056 


551 1 




ISTR NCHAN 


/SAVE NO, CHnLS BETWEEN MARKERS 


3057 


5422 




ISTR CCHAN 


/CCHANi *N0. CHNLS BETWEEN MARKERS 


3060 


5027 




ILOD G8TRT 


/SET UP GETV OR PUTV. INST 


3061 


4430 




lADD BCHAN 


/ADD BEGINNING CHNL 


3062 


4221 




ISUB# ONEI 




3063 


7221 




IMUL^ TWOI 




3064 


4421 




lAOO INST 


/SET UP ADDRESS IN INST 


V M A V 

3065 


0000 




lEXT 




3066 


0554 




TWSTK F0 




3067 


3442 


IPNTR, 


PUTV-H 




3070 


3501 




I3Z IPNTR 




307 1 


5702 




5TJ# IPNTR 




3072 


3503 




ISZ IPNTR 




3073 


5007 




tuJ CCHAN+l 




3074 


1516 




SIN CLR J 


/END CHAN LESS THAN START CHAN? 


3075 


>6677 




JPS# ERRXI 


/YES, ERROR 


3076 


6327 




JMP# GCOMP 




3077 


3472 


CCINST* 


EINST 


J iK ■ ft 1 IB IB ^k K ft ^ ft Ml Mft M 1^ All M 

/POINTER TO DATA FOR BKG SUBT. 


3100 


3402 


Cl I 9 


Cl 


A M M Skis Ilk 4W A ■** ■* kJ k 1^ HP M & J k 1 It 9^ 

/POINTER TO LEFT MARKER VALUE 


3101 


1000 


CCH AN , 


1000 


k 1 A Allkll iA M M M 1 ■ BP k 1 kJ k n 1^ M 

/ "NO, CHNLS BETWEEN MARKERS 


3102 


0000 









3103 


1541 


ONEI r 


INI 


/CONSTANT • 1 


3104 


1642 


TWOI , 


IN2 


/CONSTANT ■ 2 


3105 


0000 


INST, 







3106 


0554 




TWSTK F0 




3107 


4000 


#K A <p n v 

GSTRT # 


4000 


A A 4k 1 1 V% 4P k W V ft ■ iPi A 1 ■ k 1 1 

/GROUP STATING CHNL 


3110 


0000 









311 1 


0001 


BCH AN, 


1 


M n ^k M kifti M fti A A < . ft 1 ■ 

/BEGINNING CHNL 


3112 


0000 









3113 


0000 


SFLAG, 





/PUSH BUTTON INDICATOR 


3114 


1270 


MGCRU 


MGCR 


/POINTER TO RIGHT MARKER CHNL 


3115 


3757 


BTAB, 


TABU 


/POINTER TO SUBROUTINE ADOR TABLE 


3116 


0544 


STTW, 


TWSTJ F0 




3117 


0514 


LOTW, 


TWLDK F0 




3120 


3441 


PUTVP, 


PUTV 


/POINTER TO PUT VALUE ROUTINE 


3121 


3766 


GETVP, 


GETV 


/POINTER TO GET VALUE ROUTINE 


3122 


3275 


CHNGTP, 


CHNGET 


/POINTER TO GROUPS AND CHNL ROUTINE 



/E1931 



3123 


0000 









3124 


4507 




AOJ 


BTAB 


3125 


5420 




STJ 


POINTI 


3126 


5110 




LDJ 


STTW 


3125' 


5521 




5TJ 


INST+1 


3130 


5110 




IDJ 


PUTVP 


3131 


5542 




STJ 


IPNTR 


3132 


6710 




JPS# 


CHNGTP 


3133 


5112 




LDJ 


GETVP 


3134 


5545 




STJ 


IPNTR 


3135 


5116 




IDJ 


LDTW 


3136 


5530 




STJ 


INST+1 


3137 


6446 




JPS 


OTASET 


3140 


0640 




TWJPS 


3141 


3522 




PRA 




3142 


0640 


ALOOP, 


TWJPS 


3143 


3454 




STERM 


3144 


0620 




TWJMP# 


3145 


3115 


POINTl, 


BTAB 




iJ I 40 


t K ■« K 




I8Z 


BCHAN 


3147 


6002 




SKIP 




3150 


3536 




I8Z 


BCHAN41 


3151 


3550 




ISZ 


CCHAN 


3152 


6110 




JMP 


ALOOP 


3153 


3551 




ISZ 


CCHAN4.1 


3154 


6112 




JMP 


ALOOP 


3155 


6332 




JMPf 


ALLF 


3156 


2211 


OPERl, 


ADDL 


11 


3157 


2214 


0PER2, 


ADDL 


14 


3160 


2206 


0PER3, 


ADOl 


6 


3161 


2314 


0PER4, 


SUBL 


14 


3162 


1501 


0PER6, 


SNZ 


J 


3163 


5020 


OPERSf 


LDJ 


C4000 


3164 


A ■ j( n 

13900 


X 1 1 4 # 


TWSTJf 


3165 


3067 


IPNTRPf 


IPNTR 


3166 


3701 


X115, 


ISZ# 


IPNTRP 


3167 


1516 




SIN 


CLR J 


3170 


6032 




JMP 


DLOOP 


3171 


7024 




XCT 


X104 


3172 


3764 




CRLF 




3173 


6212 




JMP# 


DTASET 


3174 


2120 


ERRXI, 


UNUSED 


3175 


0015 


C15, 


15 




3176 


0051 


C51, 


51 




3177 


0052 


C52. 


52 




3200 


0053 


C53, 


53 




3201 


0055 


C55, 


55 




3202 


0057 


C57, 


57 





/BUILD ACTIVITY POINTER 



/SET UP PUTV STRING 



/SET UP GETV STRING 
/GO DO INITIAL ACTIVITY 

/GO EXECUTE GETV STRING 

/GO DO OPERATE ACTIVITY 

/UPDATE CURRENT CHANNEL NUMBER 



/UPDATE CHANNEL COUNT 
/FINISHED? 

/YES. CALLER DOES FINAL ACTIVITY 

/MULTIPLY* 71 

/DIVIDE ■ 65 

/ADD « 49 

/SUBTRACT* 41 
/EXIT? 

/YES, EXIT ■ 4000 
/STORE IN GETV STRING 



/EXIT? 

/JPS UNPACK 

/YES, RETURN TO ALLF 

/POINTER TO ERROR MESA6E ROUTINE 
/RETURN 

/CONSTANT FOR SETTING UP ILOD INST 
/♦ 

/- 

// 
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3203 4000 

3204 0000 



C4000I 4000 
CNTR3, 



/OPERATION COUNTEROiMAX) 



3?05 


0000 

W V 1/ V 


DTASET , 







7)20|A 


1510 




CLR 


J 


3207 


<2574 


X 1 1 3 . 


SMJ 


SFLAG 


3210 


6003 




JMP 


.♦3 


321 1 


6446 




JPS 


STENO 


3212 


6305 




JMP* 


DTASET 


3213 


2203 




ADOL 


3 


3214 


5510 




STJ 


CNTR3 


3215 


0640 


X 104f 


TWJP5 


3216 


2403 




UNPACK 


3217 


0066 




RES 




3220 


5122 




UOJ 


C51 


3221 


6137 




JHP 


0PER6 


3222 


5335 


DLOOPi 


LDJ# 


IPNTRP 


3223 


5402 




STJ 


IPNTRl 


3224 


>7075 




XCT 


X139 


3225 


3067 


IPNTRl r 


IPNTR 


3226 


0500 


X109, 


TWLOJ 


3227 


2320 




CHARX 


3230 


2442 




8MJ 


C107 


3231 


6035 




JMP GRPSET 


3232 


3105 




OSZ 


IPNTRl 


3233 


5306 




LOJ# 


IPNTRl 


3234 


4531 




AOJ 


C4000 


3235 


5710 




STJ# 


IPNTRl 


3236 


3751 




ISZ# 


IPNTRP 


3237 


3752 




ISZ# 


IPNTRP 


3240 


7112 


OPERr 


XCT 


X109 


3241 


2430 




SMJ 


C40 


3242 

S/ c ■» c 


6632 

w V# V/ s 




JPS# 


FCHARP 


3243 


3137 




DSZ 


CNTR3 


3244 


2547 




SMJ 


C15 


3245 


6162 




JMP 


0PER5 


3246 

V C> *f w 


2546 




SMJ 


C53 


3247 

w a; "f r 


6167 




JMP 


0PER3 


3250 


2547 




SMJ 


C55 


3251 


6170 




JMP 


0PER4 


3252 


2553 




SMJ 


C52 


3253 


<6175 




JMP 


OPERl 


3254 


2552 




SMJ 


C57 


3255 


<6176 




JMP 


0PER2 


3256 


6762 


X102f 


JPS# 


ERRXI 


3257 


0000 


STENO, 







3260 


1510 




CIR 


J 


3261 


<7175 




XCT 


X114 


3262 


<7174 




XCT 


X115 



/PUSHSUTTON? 

/VES, CALC. GETV STRING FOR PUSH BUTTO 
/SET UP OPERATION COUNTER 



/PRINT "RESULT OF" 
/SET ILOD IN GETV STRING 
/NOW SET UP DATA FETCH 
/TWJPS INEC 

/INPUT AND ECHO LITERAL OR GROUP NO. 
/PICKUP INPUT CHARACTER 

/6? 

/YES, 60 COMPUTE ADDRESS 

/NO. SET IM INST FOR LITERAL MODE 



/TEST FOR SPACE 

/GO FETCH OPER. OR RETN. CHAR 

/RETURN 

/♦T 
/YES 
/NO- -? 
/YES 
/NO- ♦? 
/YES 
/NO- /? 
/YES 

/NO , NO LEGAL OPERATOR 

/CALC GET V STRING FOR PUSH BUTTON 

/STJ IPNTR 
/ISZ IPNTR 



8-8 



3263 


0640 


X U 6 , 


TWJPS 


3264 


3047 




GCOMP 


3255 


6306 




4MP# STEND 






1* r o C 1 t 




3267 


7104 




XCT X116 


3270 


6130 




JMP OPER 


3271 


0040 


C40. 


40 


3272 


0107 


C107, 


107 


3273 


0115 


C115i 


115 


3274 


0245 


PCHARP, 


FCHAR 


3275 


0000 


CHNGET, 





3276 


1510 




CLR J 


3277 


7170 


X105f 


XCT X113 


3300 


6006 




JMP GPRIN 


3301 


7032 




XCT X112 


3302 


5242 




IU00# GR0P81 


3303 


5652 




I8TR# GSTRTI 


3304 


0000 




lEXT 


3305 


7012 




XCT X122 


3306 


7171 


GPRIN, 


XCT X104 


3307 


0043 




GG 


3310 


6441 




JPS 6RPGET 


3311 


7103 


X110I 


XCT GPRIN 


3312 


0060 




CHNL 


3313 


7020 




XCT X112 


3314 


5234 




11000 MGCLG 


3315 


6605 




ISTR# BCHANP 


3316 


0000 




lEXT 


3317 


0340 


X122i 


TWISZ 


3320 


2106 




ECHOF 


3321 


7005 


X139f 


XCT XIU 


3322 


3111 


BCHANP» 


BCHAN 


3323 


7104 


X137, 


XCT X122 


3324 


7113 


CHANS, 


XCT X110 


3325 


3765 




TO 


3325 


0640 


xiu, 


TWJPS 


3327 


2140 




INEC 


3330 


1270 


ECHANP, 


MGCR 


3331 


7120 




XCT X110 


3332 


3764 




CRLP 


3333 


0640 


X112, 


TWJPS 


3334 


2441 




IM 


3335 


5210 




IL00# GRPWI 


3336 


4306 




ISUBf ECHANP 


3337 


0000 




lEXT 


3340 


1602 




5IP K 


3341 


7163 


X120I 


XCT X102 



/GO COMP PUTv OR OETV INST 



/FETCH NEW GROUP START CHAN. 
/GO BUILD GETV FETCH INST. 



/SPACE 

/G 

/M ♦♦♦REMOVE VERSION B*## 
/POINTER TO FETCH CHAR ROUTINE 

/DETERMINE GROUPS AND CHNL VALUES 

/SMJ SFLA6, /PUSHBUTTONS? 

/JPS IM, YES, PRESET DISPLAY GROUP 



/SET INEC TO ECHO 
/JPS UNPACK 
/PRINT "G" 

/GO COMPUTE GROUP START CHAN, 

/JPS UNPACK 

/"CHNL" IS PRINTED 

/BCHAN« L MARKER, MGCRG* R MARKER 

/LEFT MARKER CHNL 



/FORCE INEC TO ECHO 

/TWJPS INEC 

/TWISZ ECHOF 
/NO- JPS UNPACK 
/"TO" 



/RIGHT MARKER CHNL PRINTED 
/JPS UNPACK 
/PERFORMS CR-LF 



/CHECK IN END CHNL TOO LARGE 



/JPS ERROR End CHANNEL TOO LARGE 
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3342 6363 JPS STEND 

3343 6346 JMP# CHNGET 



/DO LAST ELEMENT IN STRING 



W V * 


1 (lf$0) 

Ji V c w 


CROPS 1 . 


GROUPS 

vj n w w r w 


33^S 

w w ^ w 


180 4 

* w « ^ 


GRP W T . 

W f> r n 4 > 


GRQUPW 


33^fi 


1 fi44 


IN2K . 


I N9000 

* C V w <v 


33^7 


i V U W 


GRP 1 W T . 


GRDP 1 W 


W V 9 w 


i C Sir w 


M G C L S . 

I * V W Ik W t 


MCCL 

U w W 


W 9 i 


d 01 01 

IC ^ V V 


GRPGFT . 





3352 

V w »,l C 


7141 


X 1 38 . 


XCT X 1 1 


3353 

W W w W 






6PW 


3354 

W W O 1 


7196 


X 1 2 1 . 


y CT y 1 1 1 


33SS 


3 1 017 


GSTRTI . 


GSTRT 


335fi 

w W vr W 


5301 1 




LDJ# GSTRTI 


3357 


1503 




SIP SNZ J 


V W V w 


7117 




yCT X120 


33ff i 


4010 




1 W si O W 


V w D e 


* V VI c 




GROUPN 


33ff 3 

V? -J w »? 


1 507 




STN SI7 J 


w u o 


fi 1 014 




JMP «4 


33 A5 

w w o w 






L nj QRPIWT 


33^6 


3311 




DS2# 6STRTT 


3367 


2202 




AHDL 2 


3370 


5523 




8TJ CRPWI 


3371 


7136 


X130, 


XCT X112 


3372 


5325 




IL00# GRPWI 


3373 


7316 




IMUL# GSTRTI 


3374 


4327 




ISU8# CRPWI 


3375 


4726 




IA00# GRPIWI 


3376 


4730 




IADD# IN2K 


3377 


5722 




ISTR# GSTRTI 


34?9 


0000 




lEXT 


3401 


6330 




Jf^Pf GRPGET 


/E46989 







/POINTER TO CURRENT CROUP 

/POINTER TO GRP WIDTH-NOT QRPl 

/CONSTANT ■ 2000 

/POINTER TO GROUPl WIDTH VALUE 

/POINTER TO LEFT MARKER CHNL 

/COMPUTE NEW GROUP START CHAN, 
/TWJPS UNPACK 
/PRINT "COROUP" 
/JPS INEC 



/GREATER THAN 0? 

/NO, ERROR-JPS ERROR ROUTINE 



/DOES GROUP EXIST? 
/NO. ERROR 

/FETCH GROUP I WIDTH POINTER 

/IS IT GROUP 1? 

/NO. CHANGE TO NORMAL WIDTH 

/JPS IM, NOW COMP. START CHAN. 
/LOAD GROUP WIDTH 
/MULT BY GROUP NO. INPUT 
/SUBT GROUP WIDTH 



8-10 



3402 


0000 


Cl# 





/COUNTS AT LEFT MARKER 


3403 


0000 









3404 


3765 


6ETVI, 


GETV*1 


/POINTER TO GET VALUE 8TACK-1 


3405 


3046 


PRB, 


OSZ S6RP 


/I'SGRP" USED FOR TEMPORARY COUNTER 


3406 


6013 




JHP PRBl 




3407 


7116 


X 1 1 ai , 


XCT X130 


/OUTPUT CHANNEL ID JPS IM 


3410 


5366 




I10D# BCHANP 




3411 


3400 




lOUT 


/PUT CHNL NO. IN TTY BUFFER 


3412 


0000 




lEXT 




3413 


7141 


X 1 1 7 , 


XCT X138 


/TWJPS UNPACK 


3414 


3764 




CRLF 


/PERFORM CR-LF 


3415 


7102 




XCT X117 


/JPS UNPACK 


3416 


0005 




TTY + 2 


/PRINT CHNL NO. 


3417 


2210 




AODL 10 


/SET UP FOR 8 DATA VALUES PER LINE 


3420 


5433 




STJ S6RP 


/"SGRP" USED FOR TEMPORARY COUNTER 


3421 


<7176 


PRBl, 


XCT X137 


/ISZ ECHOF, FORCE ECHO FROM INEC 


3422 


7146 




XCT X121 


/JPS INEC 


3423 


3472 


EINSTP, 


EINST 


/PRINT 0ATA'C7 digits MAX.) 


3424 


0600 


X106| 


TWJMP 




3425 


3146 




ALOOP'^4 




3426 


7117 


TOB, 


XCT X118 


/JPS IM 


3427 


4443 




lADD EINST 


/TOTALIZE-ADD next CHNL 


3430 


0000 




lEXT 




3431 


3022 




OaZ 8GRP 


/SKIPS FIRST TIME ONLY 


3432 


3421 




I8Z 8GRP 




3433 


6002 




JMP .+2 




3434 


7110 




XCT X106 


/JMP AL00P«4 


3435 


5533 




STJ CI 


/SAVE COUNTS AT LEFT MARKER 


3436 


0550 




TWSTK 




3437 


3403 




Cl^l 




3440 


7114 


X131 f 


XCT X106 


/JMP AL00P44 


3441 


0000 


PUTV, 





/STORE STRING FpR ST^RM 


3442 


0544 


PINSTl, 


TWSTJ P0 


/STORE LEAST 


3443 


4000 




4000 




3444 


3501 




ISZ .-1 




3449 


1374 




ROTO JK 14 




3446 


7104 




XCT PINSTl 


/STORE MOST 


3447 


3504 




ISZ PINSTl+l 




3450 


6307 




JMP# PUTV 




3451 


3507 




ISZ PINSTl 


/FIELD CHANGE 


3452 


6311 




JMP# PUTV 




3453 


0000 


SGRPi 





/TEMPORARY COUNTER 


3454 


0000 


8TERM, 





/EXECUTE GETV STRING 



8-111 



9459 


9151 




i A I 


BtTV I 




•5450 


9400 




8T J 


Fl*«9T 




045" 


H A A in 

5200 


• 1 A A a 


1 A t A 


V V a A V 

FXR5T 


/FETCH IM INST 


3460 


K Aty 
9437 




5T J 


T kl V M 41 V 

ININST 




546 1 


KAMA 




1 A ff A 


FIRST 


jVWALI I AAA aB •WAaV VklAV 

/FCTCH LOAD OR STORE INST 


9462 


K A » n 

9410 




5T J 


CXN8T 




9463 


KAMA 

5200 




1 A t A 

ID J# 


FIRST 




A At A 

9464 


■ 4 A 9 

9407 




5T J 


C I NST"*" 1 




9465 


■ A A A 

9000 




1 A t 

LD J 


FIRST 




9466 


K A Af 
9447 




5T J 


a V M V 

RcWT 




t A^f 

9467 


9090 




1 A f 

LD J 


T kJ V kl • V 

ININST 




% A9 tM 


4 ■ i A 

1512 




• * a 


A 1 a ff 

CLR J 


i 1 T 4P 49" B A 1 A 

/LITERAL* 


1 At € 

947 X 


0017 




JMP 


OOLIT 


/tes» ptpass data fetch 


9472 


0914 




TWLDH 


; F0 


/MAY BE data 


% AtX 

9479 


il A A A 




4000 






947 4 


t K A 4 

990 1 




ISZ 


.•I 




%Atti 

9475 


9102 




LOJ 


.-2 




047" 


1904 




XNC 


J 






9000 




5TJ» 


REWT 


/UPDATE, rgff NEXT TIME 




01909 




DSZ 


REWT 






1911 




SNZ CLR J 




X M 9 


0090 




xsz# 


REWT 




*K Van 


10/4 




ROTO 


JK 14 


JtAf%\IC nkVA AkIW VA f 

/nuVE DATA IF ANY TO J 


0504 


/lis 




XCT 


EIN8T 




0509 


9990 




TWSTK 




0909 


9479 




EIN8T*1 




9507 


KM 4 K 

9519 




8TJ 


EIN8T 




9510 


K A aV 

9007 


n A 1 TV 
DDL IT f 


LOJ 


ININST 


/FETCH IM INST 


3511 


1146 




8FTZ 


J 6 




9512 


4 Ma 4 

1501 




SNZ 


J 


/FINISHED? 


3513 


6337 




JMP# 


8TERM 


/YE8» RETURN 


9514 


A A A ■ 

2225 




ADDL 


ININ8T- 


FVklSV J mK 9 AAABVAA VA iTVklA* 

EINST /SET ADDRESS TO EINST 


9515 


■ il A A 

9402 




8TJ 


ININST 


jk|A AA AAkiBllVAtPVAAl 

/N0# DO COMPUTATION 


9519 


f 4 «■ A 

7170 


W 4 A A 

X126f 


XCT 


TOB 


/JPS IM 


9517 


*V ^ A A 

7400 


ININSTf 


INOP 






fli A M 

3520 


n A JB Ml 

0000 




lEXT 






3521 


6142 




JMP 


8L00P 




9522 


A A A A 
0000 









^VAIVVVAI AAV*ii»akJ AAllVWklB* 

/INITIAL ACTIVITY ROUTINE 


9523 


1514 




CLR 


INC J 




9524 


K ■ ■ 4 

9951 




STJ 


8GRP 


4IIAAABII IIAVA WDkJAAAAAki AAI 

/"SGRP" USED FOR TEMPORARY COI 


3525 


1510 




CLR 


J 




3526 


5650 




8TJ# 


LORDK 


/CLEAR INT ACC 


3527 


5645 




8TJ# 


HORDK 




3530 


6306 




JMP# 


PRA 




3531 


7113 


STB, 


XCT 


X126 


/YE8, GO STORE DATA 


3532 


0000 




If XT 






3533 


6572 




JP8 


PUTV 





8-12 



3934 


<7174 


X 1 8 » 


XCT X131 


/JMP AL00P>4 


3535 


0000 


REWT, 







3536 


2563 


REA, 


SMJ 8GRP 


/FIRST TIME? 


3537 


6014 




JMP DRDF 


/NOf 60 READ OaTA 


3540 


5447 




STJ SUM 


/CLAER SUM AREA 


3541 


6423 




JP8 ORD 


/READ NO. CHNLS 


3542 


7124 


X204, 


XCT X126 


/JPS IM 


3943 


4242 




I$UB# CHANP 




3944 


0000 




lexT 




3945 


1602 




$IP K 


/NOiCHNLS TOO LARGE 


3546 


6664 




JPSf ERR 


/YES* PRINT FRROR MESSAGE 


3547 


7105 




XCT X204 


/JPS IM 


3550 


4635 




IA00# CHANP 


/SET UP CHNL COUNTER 


3551 


5634 




I3TR# CHANP 




3552 


0000 




lEXT 




3553 


6411 


DRDF, 


JPS ORO 


/GO READ OATa 


3554 


1 120 




AJK J 




3555 


4432 




AOJ SUM 


/UPDATE CHECK SUM 


3556 


5431 




STJ SUM 




3557 


7115 




XCT X204 


/JPS IM 


3560 


7400 




INOP 


/CAN MAKE INE6 (6000) TO SUBT 


3561 


4567 




lAOD CZNST 


/ALWAYS ADOS TO CURRENT GROUP 


3562 


0000 




lEXT 




3563 


6130 




JMP STB4>2 


/GO STORE DATA BETWEEN MARKS 


3564 


0000 


ORDi 





/READ 24 BITS 


3565 


6446 




JPS RCHAR 




3566 


6403 




JPS RD 




3567 


6402 




JPS RO 




3570 


6304 




JMP# DRD 




3571 


0000 


RDi 





/READ ROUTINE 


3572 


1350 




SFTZ JK 10 




3573 


0550 


X206i 


TWSTK 


/SAVE ROTATED VALUE 


3574 


2506 


HORDK, 


HORO 




3575 


0940 




TWSTJ 




3576 


2505 


LOROK, 


LORD 




3577 


6434 




JPS RCHAR 


/READ 8 BIT OATA 


3600 


0910 


X205» 


TWLOK 

1 " fcn '~ 


/STORE IN HOROi LORD 


3601 


2506 




HORD 




3602 


4704 




AOJ# LOROK 




3603 


5705 




STJ# LOROK 




3604 


6313 




JMPf RO 




3605 


3101 


CHANP, 


CCHAN 


/POINTER TO NO. CHNL BETWEEN 



8-13 



3606 0200 

3607 0000 



P200» 
SUM, 



0200 




/BLANKS COUNTER 

/CHECK SUM STORAGE AREA 



3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3620 
3621 
3622 
3623 
3624 
362S 
3626 
3627 
3630 
3631 



2670 
6011 
5903 
5064 
5633 
6433 
7154 
5312 
0000 
6450 
7104 
5253 
0000 
1120 
4517 
5520 
6441 
<7175 



WRA, 



3633 
3634 
3635 
3636 
3637 
3640 
3641 
3642 
3643 
3644 
3645 
3646 



0000 
7401 
0640 
0000 
1501 
2640 
6002 
6106 
1610 
0550 
3453 
6313 



3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 



0000 
5143 
5626 
1510 
6613 
3223 
6102 
6307 



X203, 



WNORH 



3632 2120 ERR, 



RCHAR 



RINST, 



3647 0264 LRi 



BLANKSi 



SMJf SGRPP 
JMP MNORM 
5TJ SUM 
LDJ RETRNP 
STJf LR 
JPS BLANKS 
XCT X204 
XLOD# CHANP 
lEXT 

JPS WRT 
XCT X203 
iLOOt EINPl 
lEXT 
AJK J 
ADJ SUM 
STJ SUM 
JPS WRT 
XCT X108 

UNUSED 



TIP 

TWJPS 



SNZ J 
SMJ9 S6RPP 
JMP .♦2 

JMP RCHAR41 
CLR K 
TWSTK 
S6RP 

JMP* RCHAR 

LOREAD 



LOJ P200 
STJ* SCRPP 
CLR J 
JPS# WINST 
DSZf SGRPP 
JMP ,•2 
JMP# BLANKS 



/PXRST TIMEt 
/NO 

/DISABLE KEYBO INTERRUPT 



/JPS IM 

/PUT OUT NO. CHNL8 



/JPS IM 

/PICK UP DATA 
/UPDATE CHECK SUM 



/GO MRITE DATA 
/JMP AL00P*4 

/POINTER TO ERROR ROUTINE 

/READ CHAR ROUTINE 
/ADVANCE TTY READER 

/HS, TTY READ A CHAR 
/ZEROt 

/YES-FIRST TIMET 
/N0« READ CHAR. 
/J V AND S6RP al 



/CLEAR S6RP 



/POINTER TO TTY RETURN 



/PUT OUT 200 Blanks 



/GO MRITE BLANK 
/200T 

/NOi WRITE MORE 
/YES, RETURN 



8-14 



3660 ?000 MCHAR, 

3661 7161 

3662 5364 

3663 1370 

3664 7171 

3665 5767 

3666 0640 

3667 0000 WINST, 
3670 6310 





XCT 
LDJ# 
ROTO 
XCT 
8TJ# 
TWJPS 


JMP# WCHAR 



X205 
LOROK 
JK 10 
X206 
LOROK 



/WRITE DATA 
/TWLDK HORO 
/RUT OATA XN J.K 

/TW8TK HORO 

/SAVE ROTATED DATA 

/GO WRITE EIGHT BITS OF DATA 



3671 0000 

3672 6512 

3673 6513 

3674 6514 
3678 6304 



WRT, /WRITE DATA 

JPS WCHAR 

JP8 WCHAR 

JPS WCHAR 

JMP# WRT 



3676 3472 EINPl, EIN8T 

3677 0362 RETRNP, RETRN 
3700 3453 SGRPP, SQRP 
/E4015 



/POINTER TO OATA 

/ADDRESS FOR NORMAL RETURN 



8-15 





01 fli f3l 01 
VI 10 10 w 


n Ci U # 


ID 


37019 
V / IO C 






U w O f 


S70I3 


1 101*1 
4 9 W 9 




^T7 J 

O A 4. 


3701 ^ 


511"! 












AM7 J 


3701 II 


<S0l 4 4 
o w ^ ^ 




1 n T MR 


37017 


5041 




STJi RINSTP 


37 1 01 


0lfl 401 
V w ^1 


y 1 39 . 
A 4 w C 1 




37 t 1 


94013 




UNPACK 


37 1 9 


01014 1 




RPn 

n b u 


37 1 3 


99011 
ecu 1 




Anni 1 


37 4^ 


SA49 




AT T4 API AftP 


3715 


2201 




AODL 1 


37 1 


7094 




ycT yi33 

AVI A 4 w w 


3717 


6564 




JP8 RCHAR 


3790 


1 9014 




LKF J 


3791 


5934 




LDJt SUMP 


3792 


21897 

flii V fi r 




ANIDP F0377 


3793 


1191 

4 A C 4 




Own w 


379^ 


1 S0l5 




SI7 J 


379B 


6773 




JPSA ERR 


379fl 


5395 

w w < v 




JMP* READ 


3797 


R 01 01 01 

W to IQ Kl 


n n 4 1 1 1 


01 

V 


37^01 


t 01 1 01 
Aviv 




U w w ""1 


37"* ! 


1 S0IS 

4 w 19 9 




ST7 J 


3719 


50199 
V IP c c 




L U W la 


3711 


1 4fl 1 

4 310 4 




JkKl7 T 
9 IM £. U 


371^ 


501 1 7 




U u u n fv 


371*1 


w 3 O 




<KT T W T MAT 


3736 


7126 




XCT X132 


3737 


0063 




RITE 


17 >4fll 


9901 1 




A nni 4 

A u u L 1 


17 il 4 






AT TA API AAB 


17^9 


l0O4i0 


V 4 11 

K A 00 » 


Ty IDA 


17 il 1 
/ 4 w 


1191 

w A 2 




Al 1 P 
ALL." 


17^Z 
0^ 4^ 


59 4 1 

3411 




1 n !4 AMMP 


17^4 

07 4 3 


07it A 

w f 90 




TPA4 UTKIAT 


3748 


^ W W f w 




JPS BLANKS 


3747 


6320 




JMP# WRITE 


3750 


3636 


RIN8TP, 


RINST 


3751 


0377 


F0377, 


377 


3752 


0153 


HR, 


HREAO 


3753 


0175 


HW, 


HIPUN 


3754 


0242 


LW, 


LOPRNT 


3755 


3607 


SUMP, 


SUM 


3756 


3113 


SFLA6P, 


8PLA6 



/READ FROM PAPER TAPE 

/SW REG ■ IF MS READER 

/SW REG A NON-0 IF L8CTTY) READER 



/SET UP HS/L8 READ COMMAND 
/CR)EAD 

/PRINT READ 

/FAKE PUSH BUTTON COMMAND 

/SET UP POINTER TO ACTIVITY TABLE 

/JPS TO ALLF 

/GO READ CHECK SUM 



/SUBT CHECK SUM FROM SUM 

/NON ZERO RESULTt 

/YES, CHECK SUM ERROR ON READ 



/WRITE TO PAPER TAPE 

/SW REG ■ IF HS PUNCH 

/SW REG ■ NON-0 IF L8(TTY) PUNCH 



/SET UP H8/L8 PUNCH COMMAND 
/JPS UNPACK 

/SET UP FOR TABL ADDR 

/GO TO ALL FUNCTION ROUTINE 

/PUT OUT CHECK SUM 

/GO PUNCH CHECK SUM AND TRAILER 

/GO PUNCH 200 BLANKS, 



/POINTER TO READ INSTRUCTION 

/HIGH SPEED READER RETURN ADDR. 
/HIGH SPEED PUNCH RETURN ADDR. 
/LOW SPEED READ/PUNCH RETURN 
/POINTER TO CHECK SUM 
/PUSH BUTTON COMMAND INDICATOR 



8-16 



/E1186 



8-17 



3757 


3405 


TABLl • 


PRB 


3760 


3610 




WRA 


3761 


3536 




REA 


3762 


3426 




TOB 


3763 


3531 




STB 


3764 


7775 


CRLF, 


7775 


3765 


1575 


TOi 


1575 


3766 


0000 


GETVr 





3767 


0514 




TWLOK F0 


3770 


4000 




4000 


3771 


0000 







3772 


0000 







3773 


0000 







3774 


0000 







3775 


0000 







3776 


0000 







3777 


0000 







/e0235 







/PRINT ROUTINE 
/WRITE ROUTINE 
/READ ROUTINE 
/TOTALISE ROUTINE 
/STORE ROUTINE 



/CR-LF 

/ - C0ASH5 

/GET STRING FOR 8TERM 



8-18 



8E 5354 




ALLF ' 


> 3123 


ALOOP 1 


1 3142 


BCHAN 1 


1 3111 


BCHANP 1 


1 3322 


BLANKS I 


I 3650 


BTAB « 


■ 3115 


CI 1 


1 3402 


C107 t 


■ 3272 


CX15 1 


1 3273 


C15 t 


1 3175 


ClI • 


• 3100 


C40 I 


1 3271 


C4000 1 


• 3203 


C51 1 


1 3179 


C58 1 


9 3177 


C53 I 


1 3200 


C55 t 


1 3201 


C57 < 


1 3202 


CCHAN 1 


i 3101 


CEINST 1 


1 3077 


CHANP « 


1 3605 


CHANS 1 


1 3324 


CHNGET 1 


1 3275 


CHNGTP 1 


» 3122 


CHNL \ 


1 0050 


CNTR3 « 


1 3204 


CRLF 1 


■ 3764 


OLOOP « 


■ 3222 


OOLIT 1 


1 3510 


OPO < 


1 3564 


ORDF « 


1 3553 


OTASET 1 


i 3205 


ECHANP « 


1 3330 


ElNPl « 


1 3676 


EIN8T 1 


1 3472 


EINSTP « 


1 3423 


ERR 1 


1 3632 


ERRXI 1 


■ 3174 


F03r7 < 


■ 3751 


FCHARP « 


1 3274 


6C0MP 1 


1 3047 


6ETV < 


• 3766 


GETVI 1 


1 3404 


GETVP 1 


1 3121 


66 1 


1 0043 


6PRIN 1 


1 3306 


6R0PSI 1 


1 3344 


6RP1WI 1 


I 3347 



8-19 



r >a fc 1 


■ O «7 i 


v> w r" oi d 1 


m o c V o 


V? ^ r W 1 










• V v* 1? 


M V ~ W fi 


m f ^ 


HR 




H W 




* / FN 




T Kl T Kl 9 T 


m Xm 7 






T PmTR 


■ w W V ^ 


T PkiTR 1 


■ V <. « ^ 


T PKlTRP 




LDTW 


■ 3117 

■ W * * ' 


V« \J ^ w •» 






■ 3847 


LW 


« 3754 


MGCLS 


■ 335a 


MfirR 1 


■ 3114 


NCH AN 


■ 304S 


NFT 


« KI V> "* V 


V d 4 


■ 3103 


OPFR 


■ 3249 


OPFR t 


m 31 Sfi 




« 3157 


qpfr:^ 


■ 3 1 601 


0PFR4 


■ 3101 


0PFR5 


■ 3163 


flPPRfi 


a 3169 


P90I0I 

~ « Jo w 


■ 36016 


P T M S T 1 


■ 3449 




■ 30137 


P Q T Nl T 1 


■ 3 1 4"l 


PR A 

~ ~ ft 


m 3699 


PRR 

f rr o 


■ 3 ^01 6 


PRR1 


u 3491 




■ 3^41 


PlJTWP 


■ 3 1 901 


Rru AR 


■ 3633 


Rn 


■ 3671 


RF A 
C A 


m 3636 


PEAO 


• 5701 


RED 


■ 0041 


RES 


9 0066 


PETRNP 


« 3677 


PCWT 


• 3535 


RINST 


■ 3636 


RINSTP 


• 3750 


RITE 


9 0063 



SFLAG 


i 3113 


SFLAGP 


1 3759 


8GRP 


■ 3453 


SGPPP 


■ 3703 


SLOOP 


1 3457 


STe 


« 3531 


STEND 


i 3257 


STEPM 


■ 3454 


5T0RE 


9 3030 


8TR 


9 0054 


8TTW 


9 3116 


SUM 


■ 3607 


SUMP 


9 3755 


TASLl 


■ 3757 


TO 


■ 3765 


TOB 


• 3426 


TOT 


■ 0050 


TOT0 


■ 2775 


TNOI 


■ 3104 


WCHAR 


■ 3660 


WIN8T 


■ 3667 


WNORM 


9 3622 


WRA 


■ 3610 


WRITE 


■ 3727 


WRT 


1 3671 




■ 3000 




■ 3256 




• 3050 


^104 


9 3215 


X109 


• 3277 




■ 3424 


X107 


• 3031 


X109 


9 3534 


Xt09 


9 3226 


XU0 


• 3311 


xiu 


■ 3326 




■ 3333 




■ 3207 


X114 


9 3164 


XU9 


9 3166 




9 3263 




■ 3413 




■ 3407 


xai9 


9 3041 


XU0 


■ 3341 




• 3354 




■ 3317 




■ 3516 


XU0 


• 3371 




■ 3440 



X 132 « 


• 3710 


X 135 ' 




X137 > 


1 3323 


X138 1 


■ 3392 


X139 1 


■ 3321 


Xa03 < 


1 3918 


X204 ( 


■ 3542 


xa09 1 


• 3900 


X206 < 


■ 3973 


ER 0000 





